MacFormat 2000 July/macformat-092.iso/MacFormat 92 CD/Shareware Plus/Utilities/FolderSynchronizer 1.8.9/PlugIn/SR/00034_ScrBtnHThumb.ls

Text File | 2000-03-23 | 900 b | 30 lines

on beginSprite me
  set mySprite to the spriteNum of me
  DrawControlHThumb(mySprite)
end

on mouseDown me
  global gTotLog, gCurrLog
  set mySprite to the spriteNum of me
  set myMember to the name of member the member of sprite mySprite
  set the member of sprite mySprite to BtnDw(myMember)
  set deltaH to the mouseH - the locH of sprite mySprite
  repeat while the stillDown
    set HA to float(the locH of sprite mySprite) - float(the left of sprite 43)
    set Perc to HA / float(the width of sprite 43)
    set the locH of sprite mySprite to constrainH(43, the mouseH - deltaH)
    updateStage()
  end repeat
  set gCurrLog to integer((gTotLog - 1) * Perc) + 1
  if gCurrLog < 1 then
    set gCurrLog to 1
  end if
  if gCurrLog > gTotLog then
    set gCurrLog to gTotLog
  end if
  set the member of sprite mySprite to BtnUp(myMember)
  ReadLogText()
  ImpostaHThumb()
  DrawVControls()
end